home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_87-11_1987_-_de_Side_B.d64
/
Z 06 Z
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
87 lines
0 v=53248:d$="":pokev+33,0:pokev+32,0:print"[147]"d$
1 pokev+21,0:pokev+28,0:pokev+23,0:pokev+29,0:b$=" "
2 printchr$(8)spc(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
3 [153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd
4 printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
5 [153][166]7)" waitloglogloglog lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
6 printspc(7)"[175][146] s o f t w a r e[158][161]
7 [153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
8 fori=0to17:print:fork=0to9:nextk,i:print"
9 u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto toandposnew"
10 j$[178]"wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait waittab(waitusrwaitfrenewposandto toandposnewwaitfrewaitusrwaittab("
11 [129]i[178]1[164]13:[153]""[166]7)[202](u$,i,13)[202](u$,32[171]i)
12 [153][166]7)[202](j$,i[170]i,26)[202](j$,77[171]i[171]i):[130]
13 u$[178]" p r e s e n t s":[129]i[178]1[164]8
14 [153]""[166]11)[202](u$,i,9)[202](u$,25[171]i):[129]j[178]0[164]99:[130]j,i
20 [129]i[178]0[164]3e3:[130]:[153]"load":[151]53272,([194](53272)[175]240)[176]2:s[178]54272:[158]4458
21 [129]i[178]0[164]9:n$(i)[178]"computer ___ 0000 fnd,":[130]
22 [151]v[170]21,0:[151]v[170]29,0:[153]"loaddef"[166]14)"peeklenstr$valascvalascchr$left$peeklen"[166]29)"clrright$mid$(NULL)(NULL) (NULL) (NULL)(NULL)right$mid$
24 poke36898,59:poke36899,2:poke5843,33:sys5758:printspc(54)"(c) 1987 [159]by
26 [153][166]51)"sysi m p e r a t o r"[166]24)"s o f t w a r e
28 print"[154]oh herr. eure burg ist in gro^er gefahr!
30 [153]"ondie knechte des b\sen ritters gumbart
32 print"schicken sich an. eure burg hohenfels zu
34 [153]"onerst]rmen, wehrt die garstigen kerle
36 print"ab, von den letzten bauarbeiten liegen
38 [153]"noch eine menge steine herum,
42 a=0:printspc(49)"[150]wieviel mut habt ihr?
44 a$(0)[178]" knappe ":a$(1)[178]" ritter ":a$(2)[178]" burgherr ":a$(3)[178]" k\nig "
46 [129]i[178]0[164]3:[153][200](d$,19[170]i[170]i)[166]14)""a$(i)"":[130]
48 [153][200](d$,19[170]a[170]a)[166]14)"sys"a$(a)"
50 if(peek(56320)and1)=0thenifa>0thena=a-1
52 if(peek(56320)and2)=0thenifa<3thena=a+1
54 if(peek(56320)and16)=0goto100
56 goto46
100 poke36898,55:poke36899,2:poke5843,17
105 print"[152][147][193][193][151][184][183] [185][186][152][193][193]";
110 print"[193][193][151] [146][184][183] [185][186] [146][152][193][193]";
120 print"[193][193][151] [146] [146][152][193][193]":fori=4to25
130 printleft$(d$,i)"[193][193][151] [146][152][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][151] [146][152][193]
140 [151]1023[170]i[172]40,65:[130]
150 [129]i[178]1[164]5:[153][202]("stoppokeprint#listsys",i,1)""[166]8)"peeklenstr$valascvalascchr$left$peeklen
160 printspc(8)"[145][201][202][203][206] [206] [204][205][201][202]":forj=0to66:nextj,i
170 print""spc(21)"erschlagene"spc(29)"feinde:[150]0000
180 [158]4096
200 [129]i[178]36864[164]36884:[151]i,0:[130]:[151]36865,1:[151]36866,8.5[171]1.5[172]a:sw[178]a
210 [129]i[178]41[164]47:[151]v[170]i,1:[130]:[151]36900,1:[151]36901,1
300 [158]5746:[139][194](2)[178]0[137]300
310 [151]v[170]21,[194](v[170]21)[175]254:[151]2041,210:[129]i[178]0[164]5:[139][194](v[170]5[170]i[170]i)[178]66[167]p[178]i
320 [139][194](2042[170]i)[177]199[167][151]v[170]21,[194](v[170]21)[175](255[171]2[174](i[170]2))
330 [130]:sc[178]0:[129]i[178]0[164]3:sc[178]sc[170]([194](1095[171]i)[171]48)[172]10[174]i:[130]
340 [151]v[170]5[170]p[170]p,65:[129]i[178]211[164]224:[151]2042[170]p,i:[129]j[178]0[164]66:[130]j,i:[151]2042[170]p,210
350 a[178]v[170]4[170]p[170]p:b[178]2[174](2[170]p):x[178][194](a):[139][194](v[170]16)[175](2[174](2[170]p))[167]x[178]x[170]256
360 y[178][194](v[170]2):[139][194](v[170]16)[175]2[167]y[178]y[170]256
370 j[178]y[171]x:[139][182](j)[179]4[137]400
380 [139]j[179]0[137]390
382 x[178]x[170]1:[139]x[178]256[167][151]v[170]16,[194](v[170]16)[176]b:[151]a,0:[137]370
384 [151]a,[194](a)[170]1:[137]370
390 x[178]x[171]1:[139]x[178]255[167][151]v[170]16,[194](v[170]16)[175](255[171]2[174](2[170]p)):[151]a,255:[137]370
392 [151]a,[194](a)[171]1:[137]370
400 [129]i[178]224[164]211[169][171]1:[151]2041,i:[129]j[178]0[164]66:[130]j,i:[151]2041,200
410 a[178][171]5:[129]i[178]66[164]250[169]2:[151]v[170]3,i:a[178]a[170]1
420 [139]a[178]8[175][194](2041)[179]205[167]a[178]0:[151]2041,[194](2041)[170]1
430 [130]:a[178]54280:[151]a,2:[151]a[170]4,0:[151]a[170]5,249:[151]a[170]3,33:[151]a[170]3,32
440 [129]i[178]0[164]250:[130]:[129]i[178]0[164]2:[129]j[178]209[164]207[169][171]1:[151]2042[170]p,j
450 [129]k[178]0[164]66:[130]k,j:[129]j[178]208[164]210:[151]2042[170]p,j:[129]k[178]0[164]66:[130]k,j,i
460 [158]6026:[151]v[170]39,1:[151]v[170]40,1:[129]i[178]0[164]3e3:[130]:[151]v[170]21,3[170]2[174](p[170]2)
462 p[178]10:a[178]49[172]sw[170]sc:[129]i[178]9[164]0[169][171]1:[139]a[177]h(i)[167]p[178]i
464 [130]:[139]p[177]9[137]500
466 [129]i[178]10[164]p[170]1[169][171]1:n$(i)[178]n$(i[171]1):h(i)[178]h(i[171]1):[130]
468 n$(p)[178][202](a$(sw),2)[170]"??? ":h(p)[178]a
470 u$[178][202]([196](sc),2):n$(p)[178]n$(p)[170][200]("0000",4[171][195](u$))[170]u$[170]" fnd,"
500 [129]i[178]10[164]23:[153][200](d$,i)[166]6)b$:[130]
510 [153][200](d$,10)[166]6)"poke";b$[200](d$,23)[166]6)b$"cmd(NULL)"[200](d$,10);
520 [153][166]6)"(NULL)"[166]26)"(NULL)"[200](d$,23)[166]6)"(NULL)
530 fori=11to22:printleft$(d$,i)spc(6)" "spc(26)" ":next
540 printleft$(d$,11)spc(9)"[154]die 10 gr\^ten helden:
550 [129]i[178]0[164]9:[153][200](d$,13[170]i)"def";:[139]i[178]0[167][153]"for";
560 [153][166]7)i[170]1;:[139]i[178]9[167][153]"cmdcmdcmdcmd10 ";
570 [153]"cmd, "n$(i):[130]:[139]p[177]9[167][129]i[178]0[164]5e3:[130]:[137]22
600 u$[178]"":[129]i[178]0[164]2:a[178]0
610 [153][200](d$,13[170]p)[166]20[170]i)"sys"[199](65[170]a)
620 [139]([194](56320)[175]16)[178]0[167]u$[178]u$[170][199](a[170]65):[158]5412:[129]j[178]0[164]500:[130]j,i:[137]700
630 [139]([194](56320)[175]4)[178]0[167]a[178]a[171]1:[139]a[179]0[167]a[178]29
640 [139]([194](56320)[175]8)[178]0[167]a[178]a[170]1:[139]a[178]30[167]a[178]0
650 [129]j[178]0[164]33:[130]:[137]610
700 n$(p)[178][200](n$(p),9)[170]u$[170][202](n$(p),13):[129]i[178]1[164]5e3:[130]:[137]22